perm filename FORLSP.LAP[3,LMM] blob sn#037490 filedate 1973-04-22 generic text, type T, neo UTF8
(DEFPROP FORLSPFNS (FORLSPFNS (SPECIAL *IF'SL) DEFLIST RPLACNODE MAKEMAKECOPY REMOVEIS RECORD RECDO REMOVEOF COM→
POSE COMPOSE1 COMPOSE2 COMPOSE3 COMPOSE4 #CONS #REPLACE VARNAME GONEXTN PLUSSIGNTESTSET PLUSSIGNPV INITL PLUSSIG→
NNEXT *FOR | CONDIT SETIT NEGATE *IF THENCLAUSE QUOTEIT1 QUOTEIT2 FOR IF REPLACE FULLEXPANSION DEFAULT GSET ADVI→
SE ADVISE1 SAVEFN1 ARGLIST NARGS FIRSTN) VALUE) 

(LAP DEFLIST SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (MOVE 1. -2. P) 
       (JUMPN 1. TAG6) 
       (MOVE 1. 0. P) 
       (JRST 0. TAG2) 
 TAG6  (MOVE 3. -1. P) 
       (HLRZ@ 2. -2. P) 
       (HRRZ@ 2. 2.) 
       (HLRZ@ 2. 2.) 
       (HLRZ@ 1. -2. P) 
       (HLRZ@ 1. 1.) 
       (CALL 3. (E PUTPROP) S) 
       (MOVE 2. 0. P) 
       (HLRZ@ 1. -2. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E CONS) S) 
       (HRRZ@ 2. -2. P) 
       (MOVEM 1. 0. P) 
       (MOVEM 2. -2. P) 
       (JRST 0. TAG1) 
 TAG2  (SUB P (C 3. 0. 3. 0.)) 
       (POPJ P) 
       NIL 

(LAP RPLACNODE SUBR) 
       (HLRZ@ 3. 2.) 
       (HRLM@ 3. 1.) 
       (HRRZ@ 3. 2.) 
       (HRRM@ 3. 1.) 
       (POPJ P) 
       NIL 

(LAP MAKEMAKECOPY SUBR) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE (LIST COPY)) S) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E MEMQ) S) 
       (JUMPE 1. TAG2) 
       (MOVE 1. 0. P) 
       (JRST 0. TAG1) 
 TAG2  (HLRZ@ 1. 0. P) 
       (CAIE 1. (QUOTE APPEND) S) 
       (JRST 0. TAG3) 
       (HRRZ@ 1. 0. P) 
       (HRRZ@ 1. 1.) 
       (JUMPE 1. TAG3) 
       (MOVE 1. 0. P) 
       (JRST 0. TAG1) 
 TAG3  (MOVEI 1. (QUOTE NIL)) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE APPEND) S) 
       (CALL 2. (E XCONS) S) 
 TAG1  (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP REMOVEIS SUBR) 
       (PUSH P 1.) 
       (JUMPE 1. TAG1) 
       (HLRZ@ 1. 1.) 
       (CAIE 1. (QUOTE IS) S) 
       (JRST 0. TAG2) 
       (HRRZ@ 1. 0. P) 
       (CALL 1. (E REMOVEIS) S) 
       (JRST 0. TAG1) 
 TAG2  (HLRZ@ 1. 0. P) 
       (CAIE 1. (QUOTE =) S) 
       (JRST 0. TAG3) 
       (HRRZ@ 1. 0. P) 
       (CALL 1. (E REMOVEIS) S) 
       (JRST 0. TAG1) 
 TAG3  (HLRZ@ 1. 0. P) 
       (PUSH P 1.) 
       (HRRZ@ 1. -1. P) 
       (CALL 1. (E REMOVEIS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
 TAG1  (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP RECORD SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (MOVEI 3. (QUOTE RECORD) S) 
       (CALL 3. (E PUTPROP) S) 
       (MOVE 1. 0. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE QUOTE) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE (REMOVEIS RECORDVAR)) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE COMPOSE) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE (RECORDVAR)) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE LAMBDA) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 3. (QUOTE MACRO) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -1. P) 
       (CALL 3. (E PUTPROP) S) 
       (MOVEI 2. (QUOTE X) S) 
       (MOVE 1. 0. P) 
       (CALL 2. (E RECDO) S) 
       (MOVEI 1. (QUOTE NIL)) 
       (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP RECDO SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (JUMPE 1. TAG1) 
       (CALL 1. (E ATOM) S) 
       (JUMPN 1. TAG2) 
       (MOVE 1. 2.) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE CAR) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (HLRZ@ 1. -1. P) 
       (CALL 2. (E RECDO) S) 
       (MOVE 1. 0. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE CDR) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (HRRZ@ 1. -1. P) 
       (CALL 2. (E RECDO) S) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 1. 0. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE QUOTE) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE (QUOTE X)) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE (COND ((NULL (CDDR (SETQ RECORDFIELDVAR (REMOVEOF RECORDFIELDVAR)))) (CADR RECORDFIELDVA→
R)) (T (CDR RECORDFIELDVAR)))) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE SUBST) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE (RECORDFIELDVAR)) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE LAMBDA) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 3. (QUOTE MACRO) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -1. P) 
       (CALL 3. (E PUTPROP) S) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP REMOVEOF SUBR) 
       (PUSH P 1.) 
       (JUMPE 1. TAG1) 
       (HLRZ@ 1. 1.) 
       (CAIE 1. (QUOTE OF) S) 
       (JRST 0. TAG2) 
       (HRRZ@ 1. 0. P) 
       (CALL 1. (E REMOVEOF) S) 
       (JRST 0. TAG1) 
 TAG2  (HLRZ@ 1. 0. P) 
       (PUSH P 1.) 
       (HRRZ@ 1. -1. P) 
       (CALL 1. (E REMOVEOF) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
 TAG1  (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP COMPOSE SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CALL 1. (E CADR) S) 
       (CAIE 1. (QUOTE FROM) S) 
       (JRST 0. TAG2) 
       (HRRZ@ 1. -1. P) 
       (CALL 1. (E CADR) S) 
       (CALL 1. (E ATOM) S) 
       (JUMPE 1. TAG4) 
       (HRRZ@ 3. -1. P) 
       (HRRZ@ 3. 3.) 
       (HLRZ@ 3. 3.) 
       (MOVE 1. -1. P) 
       (CALL 3. (E COMPOSE1) S) 
       (JRST 0. TAG3) 
 TAG4  (MOVEI 3. (QUOTE COMPOSEVAR) S) 
       (MOVE 2. 0. P) 
       (MOVE 1. -1. P) 
       (CALL 3. (E COMPOSE1) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE (COMPOSEVAR)) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE LAMBDA) S) 
       (CALL 2. (E XCONS) S) 
       (PUSH P 1.) 
       (HRRZ@ 1. -2. P) 
       (CALL 1. (E CADR) S) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
 TAG3  (JRST 0. TAG1) 
 TAG2  (MOVEI 3. (QUOTE COMPOSEVAR) S) 
       (MOVE 2. 0. P) 
       (MOVE 1. -1. P) 
       (CALL 3. (E COMPOSE1) S) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP COMPOSE1 SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (CALL 3. (E COMPOSE2) S) 
       (MOVEM 1. 0. P) 
       (JUMPE 1. TAG5) 
       (HLRZ@ 1. 1.) 
       (JRST 0. TAG4) 
 TAG5  (MOVE 3. -1. P) 
       (MOVE 2. -2. P) 
       (MOVE 1. -3. P) 
       (CALL 3. (E COMPOSE3) S) 
 TAG4  (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP COMPOSE2 SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (MOVE 1. 2.) 
       (JUMPE 1. TAG1) 
       (CALL 1. (E ATOM) S) 
       (JUMPE 1. TAG2) 
       (MOVE 1. -2. P) 
       (CALL 2. (E GET) S) 
       (JUMPE 1. TAG4) 
       (MOVE 1. -2. P) 
       (CALL 2. (E GET) S) 
       (EXCH 3. 1.) 
       (MOVEI 2. (QUOTE **) S) 
       (CALL 3. (E SUBST) S) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG3) 
 TAG4  (MOVEI 1. (QUOTE NIL)) 
 TAG3  (JRST 0. TAG1) 
 TAG2  (HLRZ@ 1. 2.) 
       (CAIE 1. (QUOTE ID) S) 
       (JRST 0. TAG7) 
       (HRRZ@ 1. 2.) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE QUOTE) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG1) 
 TAG7  (MOVE 1. 0. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE CDR) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 3. 1.) 
       (HRRZ@ 2. -1. P) 
       (MOVE 1. -2. P) 
       (CALL 3. (E COMPOSE2) S) 
       (PUSH P 1.) 
       (MOVE 1. -1. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE CAR) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 3. 1.) 
       (HLRZ@ 2. -2. P) 
       (MOVE 1. -3. P) 
       (CALL 3. (E COMPOSE2) S) 
       (PUSH P 1.) 
       (JUMPN 1. TAG15) 
       (MOVE 1. -1. P) 
       (JUMPE 1. TAG11) 
 TAG15 (MOVE 1. 0. P) 
       (JUMPE 1. TAG19) 
       (HLRZ@ 1. 1.) 
       (JRST 0. TAG18) 
 TAG19 (MOVE 1. -2. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE CAR) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 3. 1.) 
       (HLRZ@ 2. -3. P) 
       (MOVE 1. -4. P) 
       (CALL 3. (E COMPOSE1) S) 
 TAG18 (PUSH P 1.) 
       (MOVE 1. -2. P) 
       (JUMPE 1. TAG23) 
       (HLRZ@ 2. 1.) 
       (JRST 0. TAG22) 
 TAG23 (MOVE 1. -3. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE CDR) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 3. 1.) 
       (HRRZ@ 2. -4. P) 
       (MOVE 1. -5. P) 
       (CALL 3. (E COMPOSE1) S) 
       (MOVE 2. 1.) 
 TAG22 (POP P 1.) 
       (CALL 2. (E #CONS) S) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG10) 
 TAG11 (MOVEI 1. (QUOTE NIL)) 
 TAG10 (SUB P (C 2. 0. 2. 0.)) 
 TAG1  (SUB P (C 3. 0. 3. 0.)) 
       (POPJ P) 
       NIL 

(LAP COMPOSE3 SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (CALL 1. (E CADR) S) 
       (CAIE 1. (QUOTE FROM) S) 
       (JRST 0. TAG2) 
       (MOVE 1. 3.) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 1. -1. P) 
       (CALL 1. (E COMPOSE4) S) 
 TAG1  (SUB P (C 3. 0. 3. 0.)) 
       (POPJ P) 
       NIL 

(LAP COMPOSE4 SUBR) 
       (PUSH P 1.) 
       (JUMPE 1. TAG1) 
       (CALL 1. (E ATOM) S) 
       (JUMPE 1. TAG2) 
       (MOVEI 2. (QUOTE RECDEFAULT) S) 
       (MOVE 1. 0. P) 
       (CALL 2. (E GET) S) 
       (PUSH P 1.) 
       (JUMPE 1. TAG4) 
       (CALL 1. (E COPY) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE QUOTE) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG3) 
 TAG4  (MOVEI 1. (QUOTE NIL)) 
 TAG3  (SUB P (C 1. 0. 1. 0.)) 
       (JRST 0. TAG1) 
 TAG2  (HLRZ@ 1. 0. P) 
       (CALL 1. (E COMPOSE4) S) 
       (PUSH P 1.) 
       (HRRZ@ 1. -1. P) 
       (CALL 1. (E COMPOSE4) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E #CONS) S) 
 TAG1  (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP #CONS SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (JUMPN 2. TAG2) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE LIST) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG1) 
 TAG2  (HLRZ@ 1. 2.) 
       (CAIE 1. (QUOTE LIST) S) 
       (JRST 0. TAG4) 
       (HRRZ@ 2. 2.) 
       (MOVE 1. -1. P) 
       (CALL 2. (E CONS) S) 
       (MOVEI 2. (QUOTE LIST) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG1) 
 TAG4  (MOVE 1. 0. P) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE CONS) S) 
       (CALL 2. (E XCONS) S) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP #REPLACE SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (JUMPN 1. TAG2) 
       (MOVE 1. 2.) 
       (JRST 0. TAG1) 
 TAG2  (JUMPN 2. TAG4) 
       (JRST 0. TAG1) 
 TAG4  (HLRZ@ 1. 1.) 
       (CAIE 1. (QUOTE RPLACA) S) 
       (JRST 0. TAG6) 
       (HLRZ@ 1. 2.) 
       (CAIE 1. (QUOTE RPLACD) S) 
       (JRST 0. TAG6) 
       (HRRZ@ 2. 2.) 
       (HLRZ@ 2. 2.) 
       (HRRZ@ 1. -1. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG6) 
       (HRRZ@ 1. 0. P) 
       (CALL 1. (E CADR) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE RPLACD) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG1) 
 TAG6  (MOVE 1. 0. P) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE PROG2) S) 
       (CALL 2. (E XCONS) S) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP *FOR SUBR) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE 1.) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (HLRZ@ 1. -19. P) 
       (CAIE 1. (QUOTE NEW) S) 
       (JRST 0. TAG8) 
       (HRRZ@ 1. -19. P) 
       (MOVE 2. -1. P) 
       (MOVEM 1. -19. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -1. P) 
 TAG8  (HLRZ@ 1. -19. P) 
       (HRRZ@ 2. -19. P) 
       (HRRZ@ 2. 2.) 
       (HLRZ@ 2. 2.) 
       (MOVEM 2. -7. P) 
       (MOVE 2. 1.) 
       (MOVEM 1. -6. P) 
       (MOVEI 1. (QUOTE NEXT) S) 
       (CALL 2. (E |) S) 
       (MOVE 2. -10. P) 
       (MOVEM 1. -9. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -10. P) 
       (HRRZ@ 1. -19. P) 
       (HLRZ@ 1. 1.) 
       (CAIE 1. (QUOTE IN) S) 
       (JRST 0. TAG10) 
       (MOVE 2. -6. P) 
       (MOVEI 1. (QUOTE LIST) S) 
       (CALL 2. (E |) S) 
       (MOVE 2. -1. P) 
       (MOVEM 1. -8. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -1. P) 
       (HLRZ@ 1. 1.) 
       (MOVE 2. -7. P) 
       (MOVEM 1. -17. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -14. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -14. P) 
       (MOVE 1. -17. P) 
       (CALL 1. (E NEGATE) S) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -19. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG12) 
       (MOVEI 1. (QUOTE RETURN) S) 
       (JRST 0. TAG11) 
 TAG12 (MOVE 1. -19. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 2. 1.) 
       (MOVEI 1. (QUOTE NEXT) S) 
       (CALL 2. (E |) S) 
 TAG11 (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE GO) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E CONDIT) S) 
       (MOVE 2. -15. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -15. P) 
       (MOVE 1. -8. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE CAR) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -6. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -15. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -15. P) 
       (MOVE 1. -8. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE CDR) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -8. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -10. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -10. P) 
       (JRST 0. TAG9) 
 TAG10 (HRRZ@ 1. -19. P) 
       (HLRZ@ 1. 1.) 
       (CAIE 1. (QUOTE ON) S) 
       (JRST 0. TAG15) 
       (MOVE 1. -6. P) 
       (CALL 1. (E NEGATE) S) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -19. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG17) 
       (MOVEI 1. (QUOTE RETURN) S) 
       (JRST 0. TAG16) 
 TAG17 (MOVE 1. -19. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 2. 1.) 
       (MOVEI 1. (QUOTE NEXT) S) 
       (CALL 2. (E |) S) 
 TAG16 (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE GO) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E CONDIT) S) 
       (MOVE 2. -15. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -15. P) 
       (MOVE 1. -6. P) 
       (MOVE 2. -7. P) 
       (MOVEM 1. -17. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -14. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -14. P) 
       (MOVE 1. -6. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE CDR) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -17. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -10. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -10. P) 
       (JRST 0. TAG9) 
 TAG15 (MOVEI 2. (QUOTE (:= ←)) S) 
       (HRRZ@ 1. -19. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E MEMB) S) 
       (JUMPE 1. TAG20) 
       (HRRZ@ 1. -7. P) 
       (HLRZ@ 1. 1.) 
       (CALL 1. (E ATOM) S) 
       (JUMPE 1. TAG22) 
       (HRRZ@ 1. -7. P) 
       (HLRZ@ 1. 1.) 
       (JRST 0. TAG21) 
 TAG22 (MOVE 2. -6. P) 
       (MOVEI 1. (QUOTE MAX) S) 
       (CALL 2. (E |) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -1. P) 
       (HLRZ@ 1. 1.) 
       (HRRZ@ 2. -7. P) 
       (HLRZ@ 2. 2.) 
       (MOVEM 1. -17. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -14. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -14. P) 
       (MOVE 1. -17. P) 
 TAG21 (MOVEM 1. -12. P) 
       (HRRZ@ 1. -7. P) 
       (HRRZ@ 1. 1.) 
       (JUMPE 1. TAG26) 
       (HRRZ@ 1. -7. P) 
       (CALL 1. (E CADR) S) 
       (CALL 1. (E ATOM) S) 
       (JUMPE 1. TAG28) 
       (HRRZ@ 2. -7. P) 
       (HRRZ@ 2. 2.) 
       (HLRZ@ 2. 2.) 
       (JRST 0. TAG27) 
 TAG28 (MOVE 2. -6. P) 
       (MOVEI 1. (QUOTE INC) S) 
       (CALL 2. (E |) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E CONS) S) 
       (HLRZ@ 2. 1.) 
       (MOVEM 2. -17. P) 
       (HRRZ@ 2. -7. P) 
       (HRRZ@ 2. 2.) 
       (HLRZ@ 2. 2.) 
       (MOVEM 1. -1. P) 
       (MOVE 1. -17. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -14. P) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. -17. P) 
       (MOVEM 1. -14. P) 
 TAG27 (JRST 0. TAG25) 
 TAG26 (HLRZ@ 1. -7. P) 
       (CALL 1. (E NUMBERP) S) 
       (JUMPE 1. TAG31) 
       (HRRZ@ 1. -7. P) 
       (HLRZ@ 1. 1.) 
       (CALL 1. (E NUMBERP) S) 
       (JUMPE 1. TAG31) 
       (HRRZ@ 2. -7. P) 
       (HLRZ@ 2. 2.) 
       (HLRZ@ 1. -7. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPE 1. TAG31) 
       (MOVEI 2. (QUOTE -1.)) 
       (JRST 0. TAG25) 
 TAG31 (MOVEI 2. (QUOTE 1.)) 
 TAG25 (MOVE 1. -6. P) 
       (MOVEM 2. -13. P) 
       (HLRZ@ 2. -7. P) 
       (MOVEM 1. -17. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -14. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -14. P) 
       (MOVEI 2. (QUOTE (∞ INFINITY)) S) 
       (MOVE 1. -12. P) 
       (CALL 2. (E MEMB) S) 
       (JUMPN 1. TAG37) 
       (MOVE 1. -13. P) 
       (CALL 1. (E NUMBERP) S) 
       (JUMPN 1. TAG40) 
       (MOVE 1. -13. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE MINUSP) S) 
       (CALL 2. (E XCONS) S) 
       (PUSH P 1.) 
       (MOVE 1. -13. P) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -7. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE LESSP) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (PUSH P 1.) 
       (MOVE 1. -14. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE ZEROP) S) 
       (CALL 2. (E XCONS) S) 
       (PUSH P 1.) 
       (MOVE 1. -14. P) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -8. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE GREATERP) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE OR) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE T) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE COND) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG39) 
 TAG40 (MOVE 1. -13. P) 
       (CALL 1. (E MINUSP) S) 
       (JUMPE 1. TAG42) 
       (MOVE 1. -12. P) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -6. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE LESSP) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG39) 
 TAG42 (MOVE 1. -12. P) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -6. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE GREATERP) S) 
       (CALL 2. (E XCONS) S) 
 TAG39 (PUSH P 1.) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -19. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG46) 
       (MOVEI 1. (QUOTE RETURN) S) 
       (JRST 0. TAG45) 
 TAG46 (MOVE 1. -19. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 2. 1.) 
       (MOVEI 1. (QUOTE NEXT) S) 
       (CALL 2. (E |) S) 
 TAG45 (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE GO) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E CONDIT) S) 
       (MOVE 2. -15. P) 
       (CALL 2. (E CONS) S) 
       (HLRZ@ 2. 1.) 
       (MOVEM 1. -15. P) 
       (JUMPN 2. TAG36) 
 TAG37 
 TAG36 (MOVE 1. -13. P) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -6. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE PLUS) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -6. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -10. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -10. P) 
       (JRST 0. TAG9) 
 TAG20 (HRRZ@ 1. -19. P) 
       (HLRZ@ 1. 1.) 
       (CAIE 1. (QUOTE IS) S) 
       (JRST 0. TAG49) 
       (MOVE 2. -7. P) 
       (MOVE 1. -6. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -15. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -15. P) 
       (JRST 0. TAG9) 
 TAG49 (MOVEI 1. (QUOTE "INVALID FOR TYPE") S) 
       (CALL 1. (E ERROR) S) 
 TAG9  (HRRZ@ 1. -19. P) 
       (CALL 1. (E CDDR) S) 
       (MOVEM 1. -19. P) 
 TAG2  (HLRZ@ 1. -19. P) 
       (CAIE 1. (QUOTE AS) S) 
       (JRST 0. TAG53) 
       (HRRZ@ 1. -19. P) 
       (MOVE 2. -10. P) 
       (MOVEM 1. -19. P) 
       (MOVE 1. -11. P) 
       (CALL 2. (E *APPEND) S) 
       (CLEARM 0. -10. P) 
       (MOVEM 1. -11. P) 
       (JRST 0. TAG1) 
 TAG53 (MOVEI 2. (QUOTE (IF WHEN)) S) 
       (HLRZ@ 1. -19. P) 
       (CALL 2. (E MEMQ) S) 
       (JUMPE 1. TAG54) 
       (HRRZ@ 1. -19. P) 
       (HLRZ@ 1. 1.) 
       (CALL 1. (E NEGATE) S) 
       (PUSH P 1.) 
       (MOVE 1. -10. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE GO) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E CONDIT) S) 
       (MOVE 2. -15. P) 
       (CALL 2. (E CONS) S) 
       (HRRZ@ 2. -19. P) 
       (HRRZ@ 2. 2.) 
       (MOVEM 1. -15. P) 
       (MOVEM 2. -19. P) 
       (JRST 0. TAG52) 
 TAG54 (HLRZ@ 1. -19. P) 
       (CAIE 1. (QUOTE UNTIL) S) 
       (JRST 0. TAG55) 
       (PUSH P -19. P) 
       (HRRZ@ 1. 0. P) 
       (HLRZ@ 1. 1.) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -20. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG57) 
       (MOVEI 1. (QUOTE RETURN) S) 
       (JRST 0. TAG56) 
 TAG57 (MOVE 1. -20. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 2. 1.) 
       (MOVEI 1. (QUOTE NEXT) S) 
       (CALL 2. (E |) S) 
 TAG56 (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE GO) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E CONDIT) S) 
       (MOVE 2. -11. P) 
       (CALL 2. (E CONS) S) 
       (HRRZ@ 2. -20. P) 
       (HRRZ@ 2. 2.) 
       (MOVEM 1. -11. P) 
       (MOVEM 2. 0. P) 
       (POP P -20. P) 
       (JRST 0. TAG52) 
 TAG55 (HLRZ@ 1. -19. P) 
       (CAIE 1. (QUOTE WHILE) S) 
       (JRST 0. TAG60) 
       (HRRZ@ 1. -19. P) 
       (HLRZ@ 1. 1.) 
       (CALL 1. (E NEGATE) S) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -19. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG62) 
       (MOVEI 1. (QUOTE RETURN) S) 
       (JRST 0. TAG61) 
 TAG62 (MOVE 1. -19. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 2. 1.) 
       (MOVEI 1. (QUOTE NEXT) S) 
       (CALL 2. (E |) S) 
 TAG61 (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE GO) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E CONDIT) S) 
       (MOVE 2. -15. P) 
       (CALL 2. (E CONS) S) 
       (HRRZ@ 2. -19. P) 
       (HRRZ@ 2. 2.) 
       (MOVEM 1. -15. P) 
       (MOVEM 2. -19. P) 
       (JRST 0. TAG52) 
 TAG60 (JRST 0. TAG3) 
 TAG52 (JRST 0. TAG2) 
 TAG3  (MOVE 2. -18. P) 
       (MOVEI 1. (QUOTE LOOP) S) 
       (CALL 2. (E |) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -3. P) 
       (PUSH P 1.) 
       (MOVE 1. -15. P) 
       (CALL 2. (E *APPEND) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *APPEND) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -15. P) 
       (CALL 2. (E *APPEND) S) 
       (MOVE 2. -18. P) 
       (MOVEM 1. -3. P) 
       (MOVEI 1. (QUOTE NEXT) S) 
       (CALL 2. (E |) S) 
       (PUSH P 1.) 
       (MOVE 1. -11. P) 
       (CALL 1. (E REVERSE) S) 
       (PUSH P 1.) 
       (MOVE 1. -13. P) 
       (CALL 1. (E REVERSE) S) 
       (MOVE 2. -20. P) 
       (PUSH P 1.) 
       (MOVEI 1. (QUOTE LOOP) S) 
       (CALL 2. (E |) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE GO) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. -5. P) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *APPEND) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *APPEND) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (CLEARB 2. -11. P) 
       (MOVEM 2. -10. P) 
       (MOVEM 2. -14. P) 
       (MOVEM 1. -2. P) 
       (MOVEM 2. -15. P) 
       (HLRZ@ 1. -19. P) 
       (CAIE 1. (QUOTE FOR) S) 
       (JRST 0. TAG67) 
       (HRRZ@ 1. -19. P) 
       (MOVEM 1. -19. P) 
       (MOVE 1. -18. P) 
       (CALL 1. (E ADD1) S) 
       (MOVEM 1. -18. P) 
       (JRST 0. TAG1) 
 TAG67 (HLRZ@ 1. -19. P) 
       (MOVEM 1. -5. P) 
       (MOVE 1. -19. P) 
       (CALL 1. (E LAST) S) 
       (HLRZ@ 2. 1.) 
       (MOVEM 2. -16. P) 
       (MOVE 2. -1. P) 
       (MOVEI 1. (QUOTE FOR-VALUE) S) 
       (CALL 2. (E CONS) S) 
       (MOVEI 2. (QUOTE FOR-VALUE) S) 
       (MOVEM 1. -1. P) 
       (MOVEM 2. 0. P) 
       (MOVE 1. -5. P) 
       (CAIE 1. (QUOTE OR) S) 
       (JRST 0. TAG69) 
       (MOVE 2. -16. P) 
       (MOVEI 1. (QUOTE FOR-VALUE) S) 
       (CALL 2. (E SETIT) S) 
       (MOVEI 2. (QUOTE (RETURN FOR-VALUE)) S) 
       (CALL 2. (E CONDIT) S) 
       (MOVE 3. 1.) 
       (JRST 0. TAG68) 
 TAG69 (CAIE 1. (QUOTE AND) S) 
       (JRST 0. TAG70) 
       (MOVEI 1. (QUOTE FOR-VALUE) S) 
       (MOVEI 2. (QUOTE T) S) 
       (MOVEM 1. -17. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -14. P) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. -16. P) 
       (MOVEM 1. -14. P) 
       (MOVEI 1. (QUOTE FOR-VALUE) S) 
       (CALL 2. (E SETIT) S) 
       (CALL 1. (E NEGATE) S) 
       (MOVEI 2. (QUOTE (RETURN NIL)) S) 
       (CALL 2. (E CONDIT) S) 
       (MOVE 3. 1.) 
       (JRST 0. TAG68) 
 TAG70 (MOVEI 2. (QUOTE (PROGN PROG2)) S) 
       (CALL 2. (E MEMQ) S) 
       (JUMPE 1. TAG71) 
       (MOVE 2. -16. P) 
       (MOVEI 1. (QUOTE FOR-VALUE) S) 
       (CALL 2. (E SETIT) S) 
       (MOVE 3. 1.) 
       (JRST 0. TAG68) 
 TAG71 (MOVE 1. -5. P) 
       (CAIE 1. (QUOTE DO) S) 
       (JRST 0. TAG72) 
       (MOVE 3. -16. P) 
       (JRST 0. TAG68) 
 TAG72 (MOVE 1. -5. P) 
       (CAIE 1. (QUOTE LIST) S) 
       (JRST 0. TAG76) 
       (MOVE 1. -16. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE LIST) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE FOR-VALUE) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE NCONC) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (JRST 0. TAG75) 
 TAG76 (CAIE 1. (QUOTE NCONC) S) 
       (JRST 0. TAG77) 
       (MOVE 1. -16. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE FOR-VALUE) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE NCONC) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (JRST 0. TAG75) 
 TAG77 (CAIE 1. (QUOTE XLIST) S) 
       (JRST 0. TAG78) 
       (MOVEI 1. (QUOTE FOR-VALUE) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -16. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE CONS) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (JRST 0. TAG75) 
 TAG78 (CAIE 1. (QUOTE APPEND) S) 
       (JRST 0. TAG79) 
       (MOVE 1. -16. P) 
       (CALL 1. (E MAKEMAKECOPY) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE FOR-VALUE) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE NCONC) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (JRST 0. TAG75) 
 TAG79 (MOVEI 1. (QUOTE FOR-VALUE) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -16. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. -5. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
 TAG75 (MOVEI 1. (QUOTE FOR-VALUE) S) 
       (CALL 2. (E SETIT) S) 
       (MOVE 3. 1.) 
 TAG68 (MOVEM 3. -4. P) 
       (HRRZ@ 1. -19. P) 
       (HLRZ@ 2. 1.) 
       (MOVEM 1. -19. P) 
       (CAIE 2. (QUOTE FIRST) S) 
       (JRST 0. TAG83) 
       (MOVEI 1. (QUOTE FOR-VALUE) S) 
       (HRRZ@ 2. -19. P) 
       (HLRZ@ 2. 2.) 
       (MOVEM 1. -17. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -14. P) 
       (CALL 2. (E CONS) S) 
       (HRRZ@ 2. -19. P) 
       (HRRZ@ 2. 2.) 
       (MOVEM 1. -14. P) 
       (MOVEM 2. -19. P) 
       (JRST 0. TAG82) 
 TAG83 (MOVEI 2. (QUOTE (PLUS IPLUS TIMES ITIMES MAX MIN)) S) 
       (MOVE 1. -5. P) 
       (CALL 2. (E MEMQ) S) 
       (JUMPE 1. TAG84) 
       (MOVEI 1. (QUOTE FOR-VALUE) S) 
       (MOVEI 2. (QUOTE ((PLUS . 0.) (MAX . -99999.) (MIN . 99999.) (IPLUS . 0.) (TIMES . 1.) (ITIMES . 1.))) S)→
       (MOVEM 1. -17. P) 
       (MOVE 1. -5. P) 
       (CALL 2. (E ASSOC) S) 
       (HRRZ@ 2. 1.) 
       (MOVE 1. -17. P) 
       (CALL 2. (E SETIT) S) 
       (MOVE 2. -14. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. -14. P) 
 TAG84 
 TAG82 (MOVE 1. -3. P) 
       (CALL 1. (E REVERSE) S) 
       (PUSH P 1.) 
       (MOVE 1. -20. P) 
       (CALL 1. (E REVERSE) S) 
       (HRRZ@ 1. 1.) 
       (CALL 1. (E REVERSE) S) 
       (PUSH P 1.) 
       (MOVE 1. -6. P) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVE 1. -3. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE RETURN) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE RETURN) S) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -5. P) 
       (CALL 2. (E *APPEND) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *APPEND) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *APPEND) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (CALL 2. (E *APPEND) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -14. P) 
       (CALL 2. (E *APPEND) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE PROG) S) 
       (SUB P (C 20. 0. 20. 0.)) 
       (JCALL 2. (E XCONS) S) 
       NIL 

(LAP | SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P (C 0. 0. TAG1 0.)) 
       (CALL 1. (E EXPLODE) S) 
       (PUSH P 1.) 
       (EXCH 1. -2. P) 
       (CALL 1. (E EXPLODE) S) 
       (MOVEI 2. (QUOTE *) S) 
       (CALL 2. (E XCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (JCALL 1. (E READLIST) S) 
       NIL 

(LAP CONDIT SUBR) 
       (PUSH P 1.) 
       (MOVE 1. 2.) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE COND) S) 
       (JCALL 2. (E XCONS) S) 
       NIL 

(LAP SETIT SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CALL 2. (E EQUAL) S) 
       (JUMPN 1. TAG2) 
       (MOVE 1. 0. P) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE SETQ) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG1) 
 TAG2  (MOVEI 1. (QUOTE NIL)) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP NEGATE SUBR) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE (NOT NULL)) S) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E MEMQ) S) 
       (JUMPE 1. TAG2) 
       (HRRZ@ 1. 0. P) 
       (HLRZ@ 1. 1.) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 1. 0. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE NOT) S) 
       (CALL 2. (E XCONS) S) 
 TAG1  (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP *IF SUBR) 
       (JSP 6. SPECBIND) 
       (0. 1. (SPECIAL *IF'SL) S) 
       (JUMPE 1. TAG2) 
       (HLRZ@ 1. 1.) 
       (PUSH P 1.) 
       (HRRZ@ 1. (SPECIAL *IF'SL) S) 
       (HLRZ@ 1. 1.) 
       (CAIN 1. (QUOTE THEN) S) 
       (JRST 0. TAG4) 
       (MOVEI 2. (QUOTE "NO CORRESPONDING THEN IN IF") S) 
       (MOVE 1. (SPECIAL *IF'SL) S) 
       (CALL 2. (E ERROR) S) 
       (MOVE 2. 1.) 
       (JRST 0. TAG3) 
 TAG4  (HRRZ@ 1. (SPECIAL *IF'SL) S) 
       (HRRZ@ 1. 1.) 
       (MOVEM 1. (SPECIAL *IF'SL) S) 
       (CALL 0. (E THENCLAUSE) S) 
       (MOVE 2. 1.) 
 TAG3  (POP P 1.) 
       (CALL 2. (E CONS) S) 
       (PUSH P 1.) 
       (MOVE 2. (SPECIAL *IF'SL) S) 
       (JUMPE 2. TAG8) 
       (HLRZ@ 1. 2.) 
       (CAIE 1. (QUOTE ELSEIF) S) 
       (JRST 0. TAG9) 
       (HRRZ@ 1. 2.) 
       (CALL 1. (E *IF) S) 
       (MOVE 2. 1.) 
       (JRST 0. TAG8) 
 TAG9  (HRRZ@ 1. 2.) 
       (MOVEM 1. (SPECIAL *IF'SL) S) 
       (HLRZ@ 1. 1.) 
       (CAIE 1. (QUOTE IF) S) 
       (JRST 0. TAG10) 
       (HRRZ@ 1. (SPECIAL *IF'SL) S) 
       (CALL 1. (E *IF) S) 
       (MOVE 2. 1.) 
       (JRST 0. TAG8) 
 TAG10 (CALL 0. (E THENCLAUSE) S) 
       (MOVEI 2. (QUOTE T) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. 1.) 
 TAG8  (POP P 1.) 
       (CALL 2. (E CONS) S) 
       (JRST 0. TAG1) 
 TAG2  (MOVEI 1. (QUOTE NIL)) 
 TAG1  (JRST 0. SPECSTR) 
       NIL 

(LAP THENCLAUSE SUBR) 
       (MOVE 1. (SPECIAL *IF'SL) S) 
       (JUMPE 1. TAG4) 
       (MOVEI 2. (QUOTE (ELSE ELSEIF)) S) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E MEMQ) S) 
       (JUMPE 1. TAG2) 
 TAG4  (MOVEI 1. (QUOTE NIL)) 
       (CALL 1. (E NCONS) S) 
       (JRST 0. TAG1) 
 TAG2  (HRRZ@ 1. (SPECIAL *IF'SL) S) 
       (JUMPE 1. TAG8) 
       (MOVEI 2. (QUOTE (ELSE ELSEIF)) S) 
       (HRRZ@ 1. (SPECIAL *IF'SL) S) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E MEMQ) S) 
       (JUMPE 1. TAG6) 
 TAG8  (HLRZ@ 1. (SPECIAL *IF'SL) S) 
       (CALL 1. (E NCONS) S) 
       (HRRZ@ 2. (SPECIAL *IF'SL) S) 
       (MOVEM 2. (SPECIAL *IF'SL) S) 
       (JRST 0. TAG1) 
 TAG6  (HRRZ@ 1. (SPECIAL *IF'SL) S) 
       (PUSH P (SPECIAL *IF'SL) S) 
       (MOVEM 1. (SPECIAL *IF'SL) S) 
       (HLRZ@ 1. 0. P) 
       (MOVEM 1. 0. P) 
       (CALL 0. (E THENCLAUSE) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
 TAG1  (POPJ P) 
       NIL 

(LAP QUOTEIT1 SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (JUMPE 1. TAG4) 
       (CALL 1. (E NUMBERP) S) 
       (JUMPN 1. TAG4) 
       (MOVE 1. -1. P) 
       (CAIE 1. (QUOTE T) S) 
       (JRST 0. TAG2) 
 TAG4  (MOVE 1. -1. P) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 2. 0. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E QUOTEIT2) S) 
       (MOVEM 1. 0. P) 
       (JUMPE 1. TAG6) 
       (JRST 0. TAG1) 
 TAG6  (MOVE 1. -1. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE QUOTE) S) 
       (CALL 2. (E XCONS) S) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP QUOTEIT2 SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CALL 1. (E ATOM) S) 
       (JUMPE 1. TAG2) 
       (MOVEI 1. (QUOTE NIL)) 
       (JRST 0. TAG1) 
 TAG2  (HLRZ@ 1. -1. P) 
       (CAIE 1. (QUOTE ¬) S) 
       (JRST 0. TAG3) 
       (HRRZ@ 1. -1. P) 
       (CALL 1. (E ATOM) S) 
       (JUMPE 1. TAG5) 
       (HRRZ@ 1. -1. P) 
       (JRST 0. TAG4) 
 TAG5  (HRRZ@ 1. -1. P) 
       (HRRZ@ 1. 1.) 
       (JUMPN 1. TAG6) 
       (HRRZ@ 1. -1. P) 
       (HLRZ@ 1. 1.) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE LIST) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG4) 
 TAG6  (HRRZ@ 1. -1. P) 
       (HRRZ@ 1. 1.) 
       (CALL 1. (E QUOTEIT1) S) 
       (HRRZ@ 2. -1. P) 
       (HLRZ@ 2. 2.) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (HLRZ@ 1. 1.) 
       (CAIE 1. (QUOTE LIST) S) 
       (JRST 0. TAG11) 
       (HRRZ@ 2. -1. P) 
       (MOVE 1. 0. P) 
       (CALL 2. (E CONS) S) 
       (MOVEI 2. (QUOTE LIST) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG10) 
 TAG11 (MOVE 1. -1. P) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE CONS) S) 
       (CALL 2. (E XCONS) S) 
 TAG10 (SUB P (C 2. 0. 2. 0.)) 
 TAG4  (JRST 0. TAG1) 
 TAG3  (HRRZ@ 1. -1. P) 
       (JUMPN 1. TAG14) 
       (HLRZ@ 1. -1. P) 
       (CALL 2. (E QUOTEIT2) S) 
       (MOVEM 1. 0. P) 
       (JUMPE 1. TAG17) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE LIST) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG16) 
 TAG17 (MOVEI 1. (QUOTE NIL)) 
 TAG16 (JRST 0. TAG1) 
 TAG14 (MOVE 2. 0. P) 
       (HLRZ@ 1. -1. P) 
       (CALL 2. (E QUOTEIT2) S) 
       (MOVE 2. 0. P) 
       (PUSH P 1.) 
       (HRRZ@ 1. -2. P) 
       (CALL 2. (E QUOTEIT2) S) 
       (MOVEM 1. -1. P) 
       (MOVE 1. 0. P) 
       (JUMPN 1. TAG27) 
       (MOVE 1. -1. P) 
       (JUMPE 1. TAG23) 
 TAG27 (MOVE 1. 0. P) 
       (JUMPN 1. TAG31) 
       (HLRZ@ 1. -2. P) 
       (MOVEM 1. 0. P) 
       (JUMPE 1. TAG31) 
       (CALL 1. (E NUMBERP) S) 
       (JUMPN 1. TAG31) 
       (MOVE 1. 0. P) 
       (CAIN 1. (QUOTE T) S) 
       (JRST 0. TAG31) 
       (MOVE 1. 0. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE QUOTE) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEM 1. 0. P) 
 TAG31 (HLRZ@ 1. -1. P) 
       (CAIE 1. (QUOTE LIST) S) 
       (JRST 0. TAG38) 
       (HRRZ@ 2. -1. P) 
       (MOVE 1. 0. P) 
       (CALL 2. (E CONS) S) 
       (HLRZ@ 2. -1. P) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG37) 
 TAG38 (PUSH P 0. P) 
       (MOVE 1. -2. P) 
       (JUMPN 1. TAG42) 
       (HRRZ@ 1. -3. P) 
       (MOVEM 1. -2. P) 
       (JUMPE 1. TAG42) 
       (CALL 1. (E NUMBERP) S) 
       (JUMPN 1. TAG42) 
       (MOVE 1. -2. P) 
       (CAIN 1. (QUOTE T) S) 
       (JRST 0. TAG42) 
       (MOVE 1. -2. P) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE QUOTE) S) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG41) 
 TAG42 (MOVE 1. -2. P) 
 TAG41 (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE CONS) S) 
       (CALL 2. (E XCONS) S) 
 TAG37 (JRST 0. TAG22) 
 TAG23 (MOVEI 1. (QUOTE NIL)) 
 TAG22 (SUB P (C 1. 0. 1. 0.)) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP FULLEXPANSION SUBR) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE (CAAR CADR CDAR CDDR CDDAR CDDDR CDDDAR CDDDDR CADDAR CADDDR CADAR CADDR CDADAR CDADDR C→
AADAR CAADDR CDAAR CDADR CDDAAR CDDADR CADAAR CADADR CAAAR CAADR CDAAAR CDAADR CAAAAR CAAADR)) S) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E MEMQ) S) 
       (JUMPE 1. TAG2) 
       (HLRZ@ 1. 0. P) 
       (CALL 1. (E EXPLODE) S) 
       (PUSH P 1.) 
       (MOVEI 1. (QUOTE R) S) 
       (CALL 1. (E NCONS) S) 
       (HRRZ@ 2. 0. P) 
       (HLRZ@ 2. 2.) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE C) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E READLIST) S) 
       (MOVEM 1. 0. P) 
       (HLRZ@ 1. -1. P) 
       (CALL 1. (E EXPLODE) S) 
       (HRRZ@ 2. 1.) 
       (HRRZ@ 2. 2.) 
       (MOVEI 1. (QUOTE C) S) 
       (CALL 2. (E CONS) S) 
       (CALL 1. (E READLIST) S) 
       (PUSH P 1.) 
       (HRRZ@ 1. -2. P) 
       (HLRZ@ 1. 1.) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (JRST 0. TAG1) 
 TAG2  (MOVEI 2. (QUOTE MACRO) S) 
       (HLRZ@ 1. 0. P) 
       (CALL 2. (E GET) S) 
       (JUMPE 1. TAG3) 
       (PUSH P (C 0. 0. TAG4 0.)) 
       (HLRZ@ 1. -1. P) 
       (CALL 2. (E GET) S) 
       (PUSH P 1.) 
       (MOVE 1. -2. P) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E APPLY) S) 
 TAG4  (CALL 1. (E FULLEXPANSION) S) 
       (JRST 0. TAG1) 
 TAG3  (MOVE 1. 0. P) 
 TAG1  (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP DEFAULT SUBR) 
       (MOVE 1. 2.) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE RECDEFAULT) S) 
       (JCALL 2. (E DEFLIST) S) 
       NIL 

(LAP GSET SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (MOVEI 2. (QUOTE SPECIAL) S) 
       (CALL 2. (E GET) S) 
       (JUMPN 1. TAG1) 
       (MOVEI 3. (QUOTE SPECIAL) S) 
       (MOVEI 2. (QUOTE T) S) 
       (MOVE 1. -1. P) 
       (CALL 3. (E PUTPROP) S) 
 TAG1  (POP P 2.) 
       (POP P 1.) 
       (JCALL 2. (E SET) S) 
       NIL 

(LAP ADVISE SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (CALL 1. (E ARGLIST) S) 
       (PUSH P -2. P) 
       (PUSH P 1.) 
       (MOVE 1. -3. P) 
       (CAIE 1. (QUOTE BIND) S) 
       (JRST 0. TAG2) 
       (MOVE 2. -2. P) 
       (JRST 0. TAG1) 
 TAG2  (MOVEI 2. (QUOTE NIL)) 
 TAG1  (MOVEI 1. (QUOTE !VALUE) S) 
       (CALL 2. (E CONS) S) 
       (PUSH P 1.) 
       (MOVE 1. -4. P) 
       (CAIE 1. (QUOTE BEFORE) S) 
       (JRST 0. TAG6) 
       (MOVE 1. -3. P) 
       (JRST 0. TAG5) 
 TAG6  (MOVEI 1. (QUOTE NIL)) 
 TAG5  (PUSH P 1.) 
       (MOVE 1. -6. P) 
       (CALL 1. (E ARGLIST) S) 
       (MOVE 2. 1.) 
       (EXCH 1. -6. P) 
       (CALL 2. (E SAVEFN1) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE RETURN) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE NIL)) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE PROG) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE !VALUE) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE SETQ) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEM 1. -5. P) 
       (MOVE 1. -4. P) 
       (CAIE 1. (QUOTE AFTER) S) 
       (JRST 0. TAG10) 
       (MOVE 1. -3. P) 
       (JRST 0. TAG9) 
 TAG10 (MOVEI 1. (QUOTE NIL)) 
 TAG9  (MOVEM 1. -4. P) 
       (MOVEI 1. (QUOTE (RETURN !VALUE)) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -4. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. -5. P) 
       (CALL 2. (E XCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE PROG) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE LAMBDA) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 3. (QUOTE EXPR) S) 
       (MOVE 2. 1.) 
       (POP P 1.) 
       (SUB P (C 3. 0. 3. 0.)) 
       (JCALL 3. (E PUTPROP) S) 
       NIL 

(LAP ADVISE1 SUBR) 
       (PUSH P 3.) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (PUSH P 4.) 
       (CAIE 2. (QUOTE BIND) S) 
       (JRST 0. TAG2) 
       (MOVE 2. 4.) 
       (JRST 0. TAG1) 
 TAG2  (MOVEI 2. (QUOTE NIL)) 
 TAG1  (MOVEI 1. (QUOTE !VALUE) S) 
       (CALL 2. (E CONS) S) 
       (PUSH P 1.) 
       (MOVE 1. -3. P) 
       (CAIE 1. (QUOTE BEFORE) S) 
       (JRST 0. TAG6) 
       (MOVE 1. -1. P) 
       (JRST 0. TAG5) 
 TAG6  (MOVEI 1. (QUOTE NIL)) 
 TAG5  (MOVE 2. -2. P) 
       (EXCH 1. -4. P) 
       (CALL 2. (E SAVEFN1) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE RETURN) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -4. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE NIL)) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE PROG) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE !VALUE) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE SETQ) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEM 1. -4. P) 
       (MOVE 1. -3. P) 
       (CAIE 1. (QUOTE AFTER) S) 
       (JRST 0. TAG10) 
       (MOVE 1. -1. P) 
       (JRST 0. TAG9) 
 TAG10 (MOVEI 1. (QUOTE NIL)) 
 TAG9  (MOVEM 1. -3. P) 
       (MOVEI 1. (QUOTE (RETURN !VALUE)) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -3. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. -4. P) 
       (CALL 2. (E XCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE PROG) S) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (MOVE 2. -5. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 2. (QUOTE LAMBDA) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEI 3. (QUOTE EXPR) S) 
       (MOVE 2. 1.) 
       (EXCH 1. -4. P) 
       (SUB P (C 6. 0. 6. 0.)) 
       (JCALL 3. (E PUTPROP) S) 
       NIL 

(LAP SAVEFN1 SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CALL 0. (E GENSYM) S) 
       (CALL 1. (E INTERN) S) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE EXPR) S) 
       (MOVE 1. -2. P) 
       (CALL 2. (E GET) S) 
       (JUMPE 1. TAG5) 
       (MOVE 1. -2. P) 
       (CALL 2. (E GET) S) 
       (MOVEI 3. (QUOTE EXPR) S) 
       (EXCH 2. 1.) 
       (MOVE 1. 0. P) 
       (CALL 3. (E PUTPROP) S) 
       (JRST 0. TAG4) 
 TAG5  (MOVEI 2. (QUOTE SUBR) S) 
       (MOVE 1. -2. P) 
       (CALL 2. (E GET) S) 
       (JUMPE 1. TAG6) 
       (MOVE 1. -2. P) 
       (CALL 2. (E GET) S) 
       (MOVEI 3. (QUOTE SUBR) S) 
       (EXCH 2. 1.) 
       (MOVE 1. 0. P) 
       (CALL 3. (E PUTPROP) S) 
 TAG6 
 TAG4  (MOVE 2. -1. P) 
       (MOVE 1. 0. P) 
       (SUB P (C 3. 0. 3. 0.)) 
       (JCALL 2. (E CONS) S) 
       NIL 

(LAP ARGLIST SUBR) 
       (CALL 1. (E NARGS) S) 
       (MOVE 2. 1.) 
       (MOVEI 1. (QUOTE (ARG1 ARG2 ARG3 ARG4 ARG5 ARG6 ARG7 ARG8 ARG9 ARG10)) S) 
       (JCALL 2. (E FIRSTN) S) 
       NIL 

(LAP NARGS SUBR) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE EXPR) S) 
       (CALL 2. (E GET) S) 
       (JUMPE 1. TAG2) 
       (MOVE 1. 0. P) 
       (CALL 2. (E GET) S) 
       (CALL 1. (E CADR) S) 
       (CALL 1. (E LENGTH) S) 
       (JRST 0. TAG1) 
 TAG2  (MOVEI 1. (QUOTE 5.)) 
 TAG1  (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP FIRSTN SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (MOVEI 2. (QUOTE 0.)) 
       (MOVE 1. 0. P) 
       (CALL 2. (E EQUAL) S) 
       (JUMPE 1. TAG2) 
       (MOVEI 1. (QUOTE NIL)) 
       (JRST 0. TAG1) 
 TAG2  (HRRZ@ 1. -1. P) 
       (PUSH P 1.) 
       (HLRZ@ 1. -2. P) 
       (PUSH P 1.) 
       (MOVE 1. -2. P) 
       (CALL 1. (E SUB1) S) 
       (MOVE 2. 1.) 
       (EXCH 1. -1. P) 
       (CALL 2. (E FIRSTN) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (SUB P (C 1. 0. 1. 0.)) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL